function [AM_Num_Active_Cell, AM_Num_Active_Cell_Mean] = AM_Num_Active_Cell_One_Animal_One_Dose(Data_Summary, AnimalID, Drug)

for n=1:size(Data_Summary,2)
    if strcmp(Data_Summary(n).animalName, AnimalID) && strcmp(Data_Summary(n).drug, Drug)
        AM_Num_Active_Cell(n,1)=Data_Summary(n).Num_Cell_Active_Session1;
    end
end
AM_Num_Active_Cell(AM_Num_Active_Cell==0)=[];
AM_Num_Active_Cell_Mean = mean(AM_Num_Active_Cell);

end